gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Image_Auto.asp

    <!--#include file="Head.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

dim titleID
Netout.Load("Image")
if Netout.GetCookie("View") <> "1" Then
	Netout.ShowErr(0)
	Response.End()
End IF

titleID = Netout.CheckStr(request.QueryString("titleID"),0)
If Not isNumeric(titleID) Then
	Netout.ShowErr(8)
	Response.End()
Else
	titleID = Clng(titleID)
End If
if titleID>0 then
	Dim rs,titleName,ClassID,ImageFile,ImageInfo,ImageSize,theSize,PhotoInfo,User,UserEmail,Phone,Mobile
	set rs = Server.CreateObject("adodb.recordset")
	Rs.Open "select ClassID,titleName from NT_title where titleID="&titleID,Conn,1,1
	titleName = rs("titleName"):ClassID = rs("ClassID")
	Rs.Close
	PhotoInfo = vbcr&"<script language=""javascript"">"&vbcr
	PhotoInfo = PhotoInfo &"var change=false;"&vbcr&"var IF=new Array();"&vbNewLine
	PhotoInfo = PhotoInfo &"var ID=new Array();"&vbNewLine
	Rs.Open "Select ID,ImageFile,Imagesize from NT_ImgBook where Passed=1 and titleID="&titleID&" order by ID",Conn,1,1
	Set ImageId = rs("ID")
	Set ImageFile = rs("ImageFile")
	Set ImageSize = Rs("ImageSize")
	Do while Not rs.eof
		PhotoInfo = PhotoInfo & "ID[ID.length]="&ImageId&";"&vbNewLine
		theSize = Split(ImageSize,",")
		If Config.WaterMark(0) = "1" Then
			If Config.Settings(18) = "1" then
				PhotoInfo = PhotoInfo & "IF[IF.length]=""Show.asp?s=i&f="&ImageFile
			Else
				PhotoInfo = PhotoInfo & "IF[IF.length]="""&Config.ImagePath(1)&ImageFile
			End If
		Else
			If Config.Settings(18) = "1" then
				PhotoInfo = PhotoInfo & "IF[IF.length]=""Show.asp?s=s&f="&ImageFile
			Else
				PhotoInfo = PhotoInfo & "IF[IF.length]="""&Config.ImagePath(0)&ImageFile
			End If
		End If
		ImageWidth = Netout.TrueSize(CInt(theSize(0)),CInt(theSize(1)),CInt(Config.Settings(28)),CInt(Config.Settings(29)))
		PhotoInfo = PhotoInfo & ImageWidth & """;"&vbNewLine
		rs.Movenext
	Loop
	Rs.Close
	Set rs = Nothing
	PhotoInfo = PhotoInfo &"</script>"&vbcr
Else
	Netout.ShowErr(8)
	Response.End()
End If
Dim theHtml

MyHtml = Replace(Replace(Netout.vCache,"{?PicUrl}",Netout.CssFilePath),"{?SiteName}",Config.SiteName)
MyHtml = Replace(MyHtml,"{?StyleCss}",Netout.CssFileName)
MyHtml = Replace(Replace(MyHtml,"{?Keyword}",Config.SiteKeys),"{?Description}",Config.SiteDesc)
Html   = Split(Replace(MyHtml,"{?SiteTitle}",Config.SiteTitle),"@@")
MyHtml = Replace(Replace(Html(0),"{?JsScript}",""),"{?ImageScript}",Html(9))
MyHtml = Replace(Replace(MyHtml,"{?PhotoInfo}",PhotoInfo),"{?PhotoData}","")
MyHtml = Replace(Replace(MyHtml,"{?Button1}",Replace(Html(6),"@NUM_ID","NUM1")),"{?Button2}",Replace(Html(6),"@NUM_ID","NUM2"))
MyHtml = Replace(Replace(MyHtml,"{?PhotoIntro}",""),"{?MarkTable}","")
MyHtml = Replace(Replace(MyHtml,"{?titleID}",titleID),"{?ImageBackColor}","")
If Config.Settings(14) = "1" Then
	MyHtml = Replace(MyHtml,"{?MouseRight}",Netout.MainPage(6))
Else
	MyHtml = Replace(MyHtml,"{?MouseRight}","")
End If
MyHtml = Replace(Replace(MyHtml,"{?TopHtml}",""),"{?CountStr}",Netout.MainPage(8))
Response.Write(MyHtml)
Set Template = Nothing
Set Netout = Nothing
%>